home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / CHKDRV.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  768b  |  27 lines
  1. 10 REM CHECK DISK TYPE  F.BOWEN 09/15/87
  2. 20 REM
  3. 30 REM  THIS PROGRAM WILL IDENTIFY THE
  4. 40 REM  CBM DISK TYPE  BY CHECKING THE
  5. 50 REM  DRIVE'S CHECKSUM BYTE.
  6. 70 REM
  7. 100 INPUT"CHECK WHICH UNIT";U: OPEN8,U,15
  8. 110 PRINT#8,"M-R"CHR$(00)CHR$(192)CHR$(2): GET#8,A$,B$
  9. 120 PRINT#8,"M-R"CHR$(47)CHR$(255)CHR$(1): GET#8,C$
  10. 130 CLOSE8
  11. 140 :
  12. 150 A=ASC(A$):B=ASC(B$):C=ASC(C$): REM ADD +CHR$(0) IF C64
  13. 160 :
  14. 170 IF A<>151 THEN 230
  15. 180 IF C<>169 THEN PRINT"1541" : END
  16. 190 IF B= 70  THEN PRINT"1541B- WITH UPDATE" : END
  17. 200 IF B= 170 THEN PRINT"1541B- NEEDS UPDATE": END
  18. 210 IF B= 224 THEN PRINT"1541-II": END
  19. 220 :
  20. 230 IF A=56   THEN PRINT"1571- WITH UPDATE": END
  21. 240 IF A=66   THEN PRINT"1571- NEEDS UPDATE": END
  22. 250 IF A=132  THEN PRINT"1571CR": END
  23. 260 :
  24. 270 IF A=192  THEN PRINT"1581": END
  25. 280 :
  26. 290 PRINT"UNRECOGNIZED DRIVE"
  27.